8 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB41000
20 POKE43,1:POKE44,16:POKE4096,0
30 PRINT"[144]LOAD"CHR$(34)"LOG"CHR$(34)","DV
40 PRINT"RUN"
50 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="0:B.LOGIC PROBLEMS":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END
41000 POKE53280,0:POKE53281,0:POKE53272,22:PRINT"[147]"
41002 POKE214,14:PRINT
41004 PRINTTAB(1)"[155]                                     "
41005 FORX=1TO6
41006 PRINTTAB(1)"[152]                                     "
41007 NEXT
41013 PRINTTAB(1)"[151]                                     "
41020 FORX=1TO4:READA$:POKE214,15+X:PRINT
41022 PRINTTAB(19-LEN(A$)/2)"[152]"A$
41024 NEXT
41030 T=TI+60
41031 IFT>TITHEN41031
41032 PRINT"":RETURN
41050 DATA"[195] [193] [204] [200] [207] [207] [206] ' [211]   [204] [207] [199]
41051 [131]"BY ASCENDER (null)UCKER & PEEKOB STR$ALLMAN
41052 DATA"(C) 2000 BY [202] & [198] [208]UBLISHING, [201]NC.
41053 [131]"WWW.LOADSTAR.COM
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[195] [193] [204] [200] [207] [207] [206] ' [211]   [204] [207] [199]":Z$(1)="BY [198]ENDER [212]UCKER
60032 Z$(1)[178]"BY ASCENDER (null)UCKER AND PEEKOB STR$ALLMANN
60040 Z$(2)="([195]) 1995 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)O SUBSCRIBE CALL 1-800-594-3370."
60090 [151]214,12:[153]
60100 [129]I[178]0[164]6:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]